From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 May 1993 18:45:25 +0000 (+0000)
Subject: (Fforward_comment): Always set point.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95974
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5d3bffd4599fc4e6ebb76c9ae8e413d02fcbeec0;p=emacs.git

(Fforward_comment): Always set point.
---

diff --git a/src/syntax.c b/src/syntax.c
index 9dcb8c23f94..fb584021485 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -612,6 +612,7 @@ between them, return t; otherwise return nil.")
 		  if (from == stop)
 		    {
 		      immediate_quit = 0;
+		      SET_PT (from);
 		      return Qnil;
 		    }
 		  c = FETCH_CHAR (from);
@@ -636,6 +637,7 @@ between them, return t; otherwise return nil.")
 	  else if (code != Swhitespace)
 	    {
 	      immediate_quit = 0;
+	      SET_PT (from);
 	      return Qnil;
 	    }
 	}
@@ -685,6 +687,7 @@ between them, return t; otherwise return nil.")
 		      if (from == stop)
 			{
 			  immediate_quit = 0;
+			  SET_PT (from);
 			  return Qnil;
 			}
 		      from--;
@@ -808,6 +811,7 @@ between them, return t; otherwise return nil.")
 	  else if (code != Swhitespace || quoted)
 	    {
 	      immediate_quit = 0;
+	      SET_PT (from);
 	      return Qnil;
 	    }
 	}